home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / UCB Logo 3.0 / CSLS / plot < prev    next >
Encoding:
Text File  |  1993-08-09  |  875 b   |  52 lines  |  [TEXT/JV01]
  1. to abs :x
  2. op ifelse :x<0 [-:x] [:x]
  3. end
  4.  
  5. TO DRAW :X
  6. IF XCOR > :XRANGE [STOP]
  7. SETPOS LIST (XCOR+:DELTAX) (SAFE :YRANGE*FF :MAXHARM)
  8. DRAW :X+:DELTAX
  9. END
  10.  
  11. TO F :NUM
  12. OP (RADSIN :COEFF*:NUM*:X) / :NUM
  13. END
  14.  
  15. TO FF :NUM
  16. IF :NUM < 1 [OP 0]
  17. OP (F :NUM)+(FF :NUM-:SKIP)
  18. END
  19.  
  20. TO KEYWORD :INPUTS :DEFAULTS
  21. SETUP.VALUES :DEFAULTS
  22. IF WORDP :INPUTS [MAKE FIRST :DEFAULTS :INPUTS STOP]
  23. SETUP.VALUES :INPUTS
  24. END
  25.  
  26. TO PLOT :INPUTS
  27. KEYWORD :INPUTS [MAXHARM 5 DELTAX 3 YRANGE 75 CYCLES 1 XRANGE 230 SKIP 2]
  28. MAKE "COEFF :CYCLES*(RADARCTAN -1 0)/:XRANGE
  29. SS CS HT PU
  30. SETPOS LIST (-:XRANGE) 0
  31. PD
  32. DRAW :DELTAX
  33. END
  34.  
  35. TO SAFE :Y
  36. IF (ABS :Y) < 0.001 [OP 0]
  37. OP :Y
  38. END
  39.  
  40. TO SETUP.SIMPLE :LIST
  41. MAKE FIRST :DEFAULTS FIRST :LIST
  42. SETUP.VALUES BF :LIST
  43. END
  44.  
  45. TO SETUP.VALUES :LIST
  46. IF EMPTYP :LIST [STOP]
  47. IF NUMBERP FIRST :LIST [SETUP.SIMPLE :LIST STOP]
  48. MAKE FIRST :LIST FIRST BF :LIST
  49. SETUP.VALUES BF BF :LIST
  50. END
  51.  
  52.